What PC? 1996 August/WPCAUG96.ISO/makers/search.dir/00075_Bsearch script.ls

Text File | 1996-06-12 | 677 b | 28 lines

on Bsearch str, txt
  set txt to the number of cast txt
  set start to 1
  set end to the number of lines in field txt
  set middle to (start + end) / 2
  set str to value(str)
  put str
  repeat while str <> value(item 1 of line middle of field txt)
    if str = value(item 1 of line end of field txt) then
      return end
    end if
    if start = middle then
      return 0
    end if
    if str < value(item 1 of line middle of field txt) then
      set end to middle
    else
      set start to middle
    end if
    set middle to (start + end) / 2
  end repeat
  if str = value(item 1 of line middle of field txt) then
    return middle
  else
    return 0
  end if
end